﻿Public Class Twitt
    Private _ImgUsuario As New Imagen

    Public Property Usuario() As String
        Get
            Return lblUsuario.Text
        End Get
        Set(ByVal value As String)
            lblUsuario.Text = value
        End Set
    End Property
    Public Property Texto() As String
        Get
            Return lblTexto.Text
        End Get
        Set(ByVal value As String)
            lblTexto.Text = value
        End Set
    End Property

    Public Property ImagenUsuario() As Imagen
        Get
            Return _ImgUsuario
        End Get
        Set(ByVal value As Imagen)

            If value.Imagen IsNot Nothing Then If value.Imagen.Width > pbImagen.Width Then value.Imagen = value.Imagen.GetThumbnailImage(pbImagen.Width, pbImagen.Height, Nothing, System.IntPtr.Zero)
            _ImgUsuario = value
            pbImagen.Image = value.Imagen
        End Set
    End Property
End Class
